Sub 새양식()

    Dim WS As Worksheet
    Dim i As Long

    i = Sheets.Count

    Set WS = Sheets.Add(After:=ActiveSheet)
    Sheets("대림").Select
        Cells.Copy
    
    WS.Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Range("B7:E7").ClearContents
        Range("C9").ClearContents
        Range("C16:J21").ClearContents
        Range("B7:E7").Select
        ActiveWindow.DisplayGridlines = False
    
    WS.Name = "새견적서" & i
    
End Sub
